home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n3.d64 / countdown (.txt) next >
Commodore BASIC  |  2007-02-25  |  1KB  |  63 lines
  1. 1 REM****COUNTDOWN  BY RICK ANDING****
  2. 5 PRINT"[147]":FOR X=1 TO 800:NEXT
  3. 8 POKE 53280,6:POKE 646,15
  4. 10 PRINT"THIS PROGAM DISPLAYS A METHOD OF MAKING"
  5. 12 PRINT "A COUNTDOWN CLOCK.."
  6. 14 FOR T=1 TO 2500:NEXT
  7. 15 PRINT"[147]":FOR D=1 TO 1400:NEXT
  8. 16 PRINT "WHO IS BURIED IN GRANTS TOMB?"
  9. 17 PRINT: PRINT"  A-GRANT":PRINT"  B-WASHINGTON":PRINT"  C-POPEYE"
  10. 18 PRINT: PRINT"YOU HAVE 10 SECONDS TO THINK...."
  11. 20 FOR X=1 TO 4000:NEXT:POKE 646,14
  12. 30 PRINT:PRINT:PRINT:PRINT:PRINT
  13. 32 PRINTTAB(12)"[213][196][196][196][196][196][196][196][196][196][196][196][201]"
  14. 33 PRINTTAB(12)"[199] [206][183][183][183][183][183][183][183][205] [200]"
  15. 40 PRINTTAB(12)"[199] [165][144]   10[154]  [170] [200]"
  16. 42 PRINTTAB(12)"[199] [205][175][175][175][175][175][175][175][206] [200]"
  17. 44 PRINTTAB(12)"[202][198][198][198][198][198][198][198][198][198][198][198][203]";
  18. 50 GOSUB200
  19. 51 PRINT"[157][157][157][157][157][157][157][145][145]  ";
  20. 52 FOR X=9 TO 1 STEP -1
  21. 53 PRINT "[157][157][157][144]";X;"[157][154] ";
  22. 54 GOSUB 200
  23. 60 NEXT X
  24. 65 PRINT"[157][157][144]0[154]";
  25. 68 PRINT"[145][145][145][145][157][158][209][154]"
  26. 69 FOR X=1 TO 1000:NEXT:PRINT:POKE 646,15
  27. 70 PRINT:PRINT:PRINT:PRINT:INPUT"   ANSWER";A$
  28. 75 FOR X=1 TO 800:NEXT
  29. 80 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  30. 82 FOR X=1 TO 800:NEXT
  31. 85 PRINT"     DON'T TRY SO HARD!"
  32. 90 PRINT:PRINT:PRINT"   THIS WAS JUST A DISPLAY..."
  33. 95 PRINT:PRINT:PRINT:PRINT"      NOT A POP QUIZ!
  34. 96 [153]:[153]:[153]:[153]:[153]
  35. 100 [128]
  36. 200 [129] I[178]1480 [164] 1490
  37. 210 [151] I,81
  38. 220 [151] 54272[170]I,7
  39. 222 J[178]1
  40. 225 [151] I,32
  41. 230 [130]
  42. 240 [129] I[178]1530 [164] 1810 [169] 40
  43. 250 [151] I,81
  44. 260 [151] 54272[170]I,7
  45. 265 [151] I,32
  46. 270 [130]
  47. 300 [129] I[178]1809 [164] 1794 [169] [171]1
  48. 310 [151] I,81
  49. 320 [151] 54272[170]I,7
  50. 325 [151] I,32
  51. 330 [130]
  52. 340 [129] I[178]1754 [164] 1514 [169] [171]40
  53. 350 [151] I,81
  54. 360 [151] 54272[170]I,7
  55. 365 [151] I,32
  56. 370 [130]
  57. 380 [129] I[178]1474 [164] 1480
  58. 382 [151] I,81
  59. 384 [151] 54272[170]I,7
  60. 386 [151] I,32
  61. 388 [130]
  62. 390 [142]
  63.